Dos/V Magazine 1995 October 15/CD [VMAG951015].bin/_demo/prowres/shared.dxr/01484_ÉXÉvÉâÉCÉgâ¬éãÅEïsâ¬éã_ä÷òA.ls

Text File | 1995-08-07 | 1.6 KB | 76 lines

global nmaxpage, nminipage, syearstr, snextmovie, spastmovie, nnextfn, lmaxpagelist, lyearlist, presp, memframelabel

on mvisiblechk ptvf, ptvt, torf
  repeat with tmpsp = ptvf to ptvt
    set the visible of sprite tmpsp to torf
  end repeat
end

on mvisiblerep ptvrf, ptvrt
  repeat with tmpsp = ptvrf to ptvrt
    if rollOver(tmpsp) then
      set the visible of sprite presp to 0
      set the visible of sprite tmpsp to 1
      set presp to tmpsp
      next repeat
    end if
    set the visible of sprite tmpsp to 0
  end repeat
end

on mvisiblerepx ptvrf, ptvrt
  repeat with tmpsp = ptvrf to ptvrt
    if rollOver(tmpsp) then
      set the visible of sprite presp to 0
      set the visible of sprite tmpsp to 1
      set presp to tmpsp
      exit repeat
      next repeat
    end if
    set the visible of sprite tmpsp to 0
  end repeat
end

on mvisiblechkz spf, spt, ro
  if rollOver(ro) or rollOver(10) then
    cursor(280)
  else
    set tmpflg to 0
    repeat with tmpsp = spf to spt
      if the visible of sprite tmpsp then
        set tmpflg to 1
        exit repeat
        next repeat
      end if
    end repeat
    if tmpflg = 0 then
      cursor(-1)
      mvisiblechk(3, 4, 0)
      go("NUTE")
    else
      cursor(280)
    end if
  end if
end

on mvisiblechkyc spf, spt, ro
  if rollOver(ro) or rollOver(10) then
    cursor(280)
  else
    set tmpflg to 0
    repeat with tmpsp = spf to spt
      if the visible of sprite tmpsp then
        set tmpflg to 1
        exit repeat
        next repeat
      end if
    end repeat
    if tmpflg = 0 then
      cursor(-1)
      go("6KI")
    else
      cursor(280)
    end if
  end if
end